home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / examples / fractal / juliareq.d next >
Encoding:
Text File  |  2002-10-28  |  2.5 KB  |  79 lines
  1. // Julia fractal by Robert Kihl (robert@snarl-up.com)
  2.  
  3.  
  4. MODULE  'dos/dos','exec/memory','intuition/intuition','intuition/screens',
  5.         'graphics/modeid','utility/tagitem','asl','libraries/asl'
  6.  
  7. DEF ASLBase
  8.  
  9. PROC main()
  10.   DEFW w=1024,h=768,d=8,x,y=0,n,iters
  11.   DEFF zp,zq,cp=-0.74543,cq=0.15301,zpt,zqt,xstep,ystep,xmin=-1.8,xmax=1.8,ymin=-1.2,ymax=1.2,ftemp
  12.   DEF screen:PTR TO Screen,window:PTR TO Window,vp
  13.   DEF asl:PTR TO ScreenModeRequester
  14.  
  15.   IF ASLBase:=OpenLibrary('asl.library',37)
  16.  
  17.     IF asl:=AllocAslRequest(ASL_ScreenModeRequest, NIL)
  18.  
  19.       IF AslRequest(asl, NIL)
  20.  
  21.         IF screen:=OpenScreenTags(NIL, SA_Width,asl.DisplayWidth,
  22.                                        SA_Height,asl.DisplayHeight,
  23.                                        SA_Depth,8,
  24.                                        SA_Title,'Mandelbrot',
  25.                                        SA_DisplayID,asl.DisplayID,
  26.                                        TAG_END)
  27.  
  28.           IF window:=OpenWindowTags(NIL, WA_Width,asl.DisplayWidth,
  29.                                          WA_Height,asl.DisplayHeight,
  30.                                          WA_IDCMP,IDCMP_CLOSEWINDOW|IDCMP_MOUSEBUTTONS,
  31.                                          WA_Flags,WFLG_BORDERLESS|WFLG_ACTIVATE|WFLG_RMBTRAP,
  32.                                          WA_CustomScreen,screen,
  33.                                          TAG_END)
  34.  
  35.  
  36.             vp:=ViewPortAddress(window)
  37.             FOR n:=0 TO 255 DO SetRGB32(vp,n,n<<24,n<<23,n<<22)
  38.  
  39.             xstep:=(xmax-xmin)/asl.DisplayWidth
  40.             ystep:=(ymax-ymin)/asl.DisplayHeight
  41.  
  42.             FOR zq:=ymin TO ymax STEP ystep
  43.               x:=0
  44.               FOR zp:=xmin TO xmax STEP xstep
  45.                 iters:=0
  46.                 zpt:=zp
  47.                 zqt:=zq
  48.                 WHILE FAbs(zpt)<4 AND iters<255
  49.                   ftemp:=zpt*zpt-zqt*zqt+cp
  50.                   zqt:=2*(zpt*zqt)+cq
  51.                   zpt:=ftemp
  52.                   iters++
  53.                 ENDWHILE
  54.                 SetAPen(window.RPort,iters)
  55.                 WritePixel(window.RPort,x,y)
  56.                 x++
  57.                 IF Mouse() THEN zq:=ymax
  58.               ENDFOR
  59.               y++
  60.             ENDFOR
  61.  
  62.             WaitPort(window.UserPort)
  63.             CloseWindow(window)
  64.             FreeAslRequest(asl)
  65.  
  66.           ELSE PrintF('Unable to open window\n')
  67.  
  68.           CloseScreen(screen)
  69.  
  70.         ELSE PrintF('Unable to open screen\n')
  71.  
  72.       ELSE PrintF('Unable to open aslrequester\n')
  73.  
  74.     ELSE PrintF('Unable to allocate aslrequester\n')
  75.  
  76.   ELSE PrintF('Unable to open asl.library\n')
  77.  
  78. ENDPROC
  79.